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i Macro to define site name 

.; allocate enough space for 30 char (micro) 



.IITLE TSNAMh - ::>iie rnmt^ 
. ENABL LC 
Copyright 1981, 19B2, i9n3.- 1984,. 1985, 1986, 1987. 
S&H Computer Systems, Imi . 
Nashville, Tennessee 
. PSECT CBNAMF- 

. OLOBL SUMS, sues, TSXLN, GRTl, SUPCOD, TRGRET, LICTXT, NAMTOP, MDT 
. GLOBL DISTRB, SITE, L JCENS, LICNUM 
MICRO ■■■■■•■ 

.MACRO NAME TLX! ; Store text string ?< compute checksum for it. 
. IRPC CHAR, <TEXT> 
.BYTE ~<^'CHAR> 
sues sues- "CHAR 

. EWDM 

. ENDM NAME 
. MACRO SNAME TEXT 
NAME <'TEXT> 
. IF NE, MICRO 

. NCHR '^<^^$><'JEXJy 
. REPT 30. -Ulil; 

NAMii < :> 
. ENDR 
. ENDC 

. ENDM SNAME 

.MACRO LICENSE NUMBER ; Macro to define license # 
NAME < 'NUMBER > 

. IF NE, MI(:R0 ; allocate enough space for 5 digits (micro) 
.NCHR 'ii-li*, 'CNUMBERU- 
. REPT l>. -H-li-li 

NAME <: :;■ 

. ENDR 
. ENDC 
TSXLN ::- '-D 'NUMBER 
. EN.DM LICENSE 
. MACRO NEWLIN 
.BYTE <:-15>, <-i;>> 
sues =- SUCS-15-12 

. ENDM NEWLIN 
MDT = 0. 

. NLIST BEX 
052 GRTl; .ASCII <15><12>/^> / 
. IF NE, MICRO 

. ASCII \M:irra/\ 
. ENDC 
130 . ASCIZ ,''TSX-f'lU5 VtrrBion 6. 3A #/<12> 

. EVEN 

; INITIALIZE CHECKSUM 

.+1246 J ENCRIPT ADDRESS 

<:Copyright (c) 1900, 1981, 1982, 1983, 1984, 1985, 1986, 19S7> 



Macro to store <CF?><LF> into the text string. 
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NAMTOP : 



<Distributed by > 

<S&H Computer Sy f. t«.-(ii&> Inc.U- 

<lLi censed for use on a single computer system > 

< a t > 

<S&H Computer Sy&tfc'josj Inc.> 

<Li cense # = > 
<999> 

< 1 > 
<S> 

<:00044.> 



. BYTE 
. EVEN 

<-SUCS>f-l 

. END 



; END OF COPYRIGHT LINE 

;ENCR1PT CHECKSUM SLIGHTLY 
; TOP OF TSNAME MODULE 



•K-fr-K- Assembler statist :i. ( s 



Work file reads 
Work file writes 
Size of work file 
Size of core pool 
Operating system 
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